//-------------------------------//
// Original routine              //
//-------------------------------//
// Read in text data
$F6C3:B1 D9     LDA ($D9),Y @ $8323 = #$26
$F6C5:8D 23 05  STA $0523 = #$0D

// The bank to swicth to
$F6C8:68        PLA
$F6C9:AA        TAX
$F6CA:86 CE     STX $CE = #$3C

// Go do bank switching
$F6CC:20 BE FF  JSR $FFBE            
$F6CF:60        RTS


//-------------------------------//
// Where I need to test for comp //
//-------------------------------//
$8484:C9 80     CMP #$80   // Change this to a JSR _MyTest
$8486:B0 0C     BCS $8494  // must be local for more test    

// Return here when all is normal
$8488:9D 60 06  STA $0660,X @ $0660 = #$7F
$848B:A9 7F     LDA #$7F
$848D:9D 40 06  STA $0640,X @ $0640 = #$7F
$8490:E8        INX
$8491:4C 6F 84  JMP $846F


//------------------------------//
// These variables MUST be used //
// to work compression          //
//------------------------------//
$8471:A6 CF     LDX $CF = #$00
$8473:A5 5F     LDA $5F = #$FC
$8475:85 D9     STA $D9 = #$FC
$8477:A5 60     LDA $60 = #$82
$8479:85 DA     STA $DA = #$82


//------------------------------//
// routine to convert to DTE    //
//------------------------------//
$849B:0A        ASL
$849C:A8        TAY
$849D:B9 88 9F  LDA $9F88,Y @ $9FA1 = #$21
$84A0:C8        INY
$84A1:9D 40 06  STA $0640,X @ $0645 = #$7F
$84A4:B9 88 9F  LDA $9F88,Y @ $9FA1 = #$21
$84A7:9D 60 06  STA $0660,X @ $0665 = #$7F
$84AA:E8        INX
$84AB:AC 69 00  LDY $0069 = #$19
$84AE:4C 6F 84  JMP $846F
